(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     69289,       1872]
NotebookOptionsPosition[     66668,       1781]
NotebookOutlinePosition[     67013,       1796]
CellTagsIndexPosition[     66970,       1793]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["", "Section"],

Cell[CellGroupData[{

Cell["Definiciones", "Subsection",
 CellChangeTimes->{{3.4874334860625*^9, 3.487433489078125*^9}}],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", 
  RowBox[{"and", ",", "not", ",", "or"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"and", "[", "y__", "]"}], ":=", 
  RowBox[{"MapThread", "[", 
   RowBox[{"And", ",", 
    RowBox[{"{", "y", "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"or", "[", "y__", "]"}], ":=", 
  RowBox[{"MapThread", "[", 
   RowBox[{"Or", ",", 
    RowBox[{"{", "y", "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"not", "[", "y__", "]"}], ":=", 
  RowBox[{"MapThread", "[", 
   RowBox[{"Not", ",", 
    RowBox[{"{", "y", "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.48742765928125*^9, 3.487427691078125*^9}, {
  3.487428525109375*^9, 3.48742853325*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"and", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], "=", 
  RowBox[{"x", "&&", "y"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"and", "[", 
   RowBox[{"{", 
    RowBox[{"x_", ",", "y_"}], "}"}], "]"}], "=", 
  RowBox[{"x", "&&", "y"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"and", "[", "x_", "]"}], "=", "x"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"and", "[", 
   RowBox[{"{", "x_", "}"}], "]"}], "=", 
  "x"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.487429438671875*^9, 3.48742949865625*^9}, {
  3.4874296071875*^9, 3.487429647203125*^9}, {3.487429678609375*^9, 
  3.487429696421875*^9}}],

Cell[BoxData[
 RowBox[{"x", "&&", "y"}]], "Output",
 CellChangeTimes->{3.48744789453125*^9}],

Cell[BoxData[
 RowBox[{"x", "&&", "y"}]], "Output",
 CellChangeTimes->{3.48744789453125*^9}],

Cell[BoxData["x"], "Output",
 CellChangeTimes->{3.48744789453125*^9}],

Cell[BoxData["x"], "Output",
 CellChangeTimes->{3.48744789453125*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Datos", "Subsection",
 CellChangeTimes->{{3.487433498890625*^9, 3.48743350525*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"nf", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nc", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ancho", "=", "13"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"alto", "=", "12"}], ";"}]}], "Input",
 CellChangeTimes->{{3.48741376575*^9, 3.48741390571875*^9}, {
  3.487413938421875*^9, 3.487413993265625*^9}, {3.487414051078125*^9, 
  3.487414057078125*^9}, {3.48741411184375*^9, 3.48741425959375*^9}, {
  3.487414309171875*^9, 3.487414485890625*^9}, {3.487416639546875*^9, 
  3.487416652578125*^9}, {3.487416771703125*^9, 3.487416772328125*^9}, {
  3.487418352171875*^9, 3.4874183573125*^9}, {3.48741978484375*^9, 
  3.4874197864375*^9}, {3.48742575184375*^9, 3.48742575465625*^9}, {
  3.48742588803125*^9, 3.487425888359375*^9}, {3.487426282515625*^9, 
  3.487426284515625*^9}, {3.4874300035*^9, 3.487430004671875*^9}, {
  3.487430480984375*^9, 3.487430482171875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"r0", ":=", 
   RowBox[{"RandomInteger", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{
       RowBox[{"Min", "[", 
        RowBox[{"ancho", ",", "alto"}], "]"}], "-", "1"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ClearAll", "[", 
  RowBox[{"cx", ",", "cy", ",", "r", ",", "r0", ",", "caso"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r0", ":=", 
   RowBox[{"RandomInteger", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"Round", "[", 
       FractionBox[
        RowBox[{
         RowBox[{"Min", "[", 
          RowBox[{"ancho", ",", "alto"}], "]"}], "-", "1"}], "2"], "]"}]}], 
     "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"fx", ":=", 
   RowBox[{"RandomInteger", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"ancho", "-", "1"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fy", ":=", 
   RowBox[{"RandomInteger", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"alto", "-", "1"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cx", "[", "r_", "]"}], ":=", 
   RowBox[{"RandomInteger", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"1", "+", "r"}], ",", " ", 
      RowBox[{"ancho", "-", "1", "-", "r"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cy", "[", "r_", "]"}], ":=", 
   RowBox[{"RandomInteger", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"1", "+", "r"}], ",", " ", 
      RowBox[{"alto", "-", "1", "-", "r"}]}], "}"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.487414944546875*^9, 3.48741513815625*^9}, {
   3.487415232171875*^9, 3.487415282046875*^9}, {3.487415744296875*^9, 
   3.4874157528125*^9}, {3.487415984609375*^9, 3.48741603625*^9}, 
   3.487416106953125*^9, {3.487416155171875*^9, 3.4874161608125*^9}, {
   3.4874168715*^9, 3.48741687346875*^9}, {3.48742477521875*^9, 
   3.48742477753125*^9}, {3.487424839171875*^9, 3.4874248485*^9}, {
   3.4874319001875*^9, 3.487431956046875*^9}, {3.4874334076875*^9, 
   3.4874334171875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Funciones", "Subsection",
 CellChangeTimes->{{3.487433517546875*^9, 3.487433519375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"foCeRa", ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"focos", ",", "radios", ",", "centros"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"focos", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"fx", ",", "fy"}], "}"}], ",", 
         RowBox[{"{", "nf", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"radios", "=", 
       RowBox[{"Table", "[", 
        RowBox[{"r0", ",", 
         RowBox[{"{", "nc", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"centros", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"cx", "[", "#", "]"}], ",", 
           RowBox[{"cy", "[", "#", "]"}]}], "}"}], "&"}], "/@", "radios"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"focos", ",", "centros", ",", "radios"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.4874244769375*^9, 3.487424544390625*^9}, {
  3.487424667609375*^9, 3.4874247351875*^9}, {3.487424862125*^9, 
  3.48742502809375*^9}, {3.487425068171875*^9, 3.48742518278125*^9}, {
  3.487427237734375*^9, 3.48742724178125*^9}, {3.4874284126875*^9, 
  3.487428417125*^9}, {3.4874482773125*^9, 3.487448299140625*^9}, {
  3.4874483701875*^9, 3.48744837121875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Casos sin filtro", "Subsection",
 CellChangeTimes->{{3.4874335545*^9, 3.487433555453125*^9}, {
  3.487433589890625*^9, 3.487433599796875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"casos", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"foCeRa", ",", 
     RowBox[{"{", "100", "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.487425232546875*^9, 3.487425283828125*^9}, 
   3.487425831875*^9, 3.487425896421875*^9, {3.487428423640625*^9, 
   3.48742842578125*^9}, {3.487429917625*^9, 3.48742992140625*^9}, 
   3.487429963921875*^9, 3.48743013009375*^9, {3.4874320984375*^9, 
   3.487432098703125*^9}, {3.48744797346875*^9, 3.487447973828125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Variables  logicas para filtrar", "Subsection",
 CellChangeTimes->{{3.487433565203125*^9, 3.487433584828125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"distFocoCentroQ", "=", 
   RowBox[{"and", "/@", 
    RowBox[{"(", 
     RowBox[{"Union", "/@", 
      RowBox[{"(", 
       RowBox[{"Flatten", "/@", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Norm", "[", 
               RowBox[{
                RowBox[{"#", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "j"}], "]"}], "]"}], "-", 
                RowBox[{"#", "[", 
                 RowBox[{"[", 
                  RowBox[{"2", ",", "k"}], "]"}], "]"}]}], "]"}], ">", 
              RowBox[{"#", "[", 
               RowBox[{"[", 
                RowBox[{"3", ",", "k"}], "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"k", ",", "nc"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", "nf"}], "}"}]}], "]"}], "&"}], "/@", 
          "casos"}], ")"}]}], ")"}]}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4874288295625*^9, 3.487429158140625*^9}, {
   3.48742973390625*^9, 3.4874297689375*^9}, 3.48742993921875*^9, 
   3.487431272265625*^9, 3.48743187434375*^9, {3.487432116515625*^9, 
   3.487432117390625*^9}, 3.487432277953125*^9, 3.48743237771875*^9, 
   3.487432878625*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Thread", "::", "\<\"tdlen\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Objects of unequal length in \
\\\\\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\({6, 8}\\)\
\\) + \\(\\({\\(\\(-6\\)\\), \\(\\(-6\\)\\), \\(\\(-2\\)\\)}\\)\\)\\), \\\"MT\
\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" cannot be \
combined.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\
\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Thread/tdlen\\\", ButtonNote -> \
\\\"Thread::tdlen\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487448360171875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Thread", "::", "\<\"tdlen\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Objects of unequal length in \
\\\\\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\({10, \
1}\\)\\) + \\(\\({\\(\\(-6\\)\\), \\(\\(-6\\)\\), \\(\\(-2\\)\\)}\\)\\)\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" cannot be \
combined.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\
\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Thread/tdlen\\\", ButtonNote -> \
\\\"Thread::tdlen\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487448360171875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Thread", "::", "\<\"tdlen\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Objects of unequal length in \
\\\\\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\({3, 7}\\)\
\\) + \\(\\({\\(\\(-6\\)\\), \\(\\(-6\\)\\), \\(\\(-2\\)\\)}\\)\\)\\), \\\"MT\
\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" cannot be \
combined.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\
\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Thread/tdlen\\\", ButtonNote -> \
\\\"Thread::tdlen\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487448360171875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\
\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Thread :: \
\\\"tdlen\\\"\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will \
be suppressed during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487448360171875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"distCentroCentroQ", "=", 
   RowBox[{"and", "/@", 
    RowBox[{"(", 
     RowBox[{"Union", "/@", 
      RowBox[{"(", 
       RowBox[{"Flatten", "/@", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Norm", "[", 
                 RowBox[{
                  RowBox[{"#", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ",", "j"}], "]"}], "]"}], "-", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ",", "k"}], "]"}], "]"}]}], "]"}], ">", 
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", 
                   RowBox[{"3", ",", "k"}], "]"}], "]"}], "+", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", 
                   RowBox[{"3", ",", "j"}], "]"}], "]"}]}]}], ")"}], "||", 
              RowBox[{"{", 
               RowBox[{"k", "==", "j"}], "}"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"k", ",", "nc"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", "nc"}], "}"}]}], "]"}], "&"}], "/@", 
          "casos"}], ")"}]}], ")"}]}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.487429834078125*^9, 3.487429848375*^9}, 
   3.4874299436875*^9, 3.487431257*^9, {3.4874312951875*^9, 
   3.4874313420625*^9}, 3.487432107328125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ditFocoFocoQ", "=", 
   RowBox[{"and", "/@", 
    RowBox[{"(", 
     RowBox[{"Union", "/@", 
      RowBox[{"(", 
       RowBox[{"Flatten", "/@", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Norm", "[", 
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", 
                   RowBox[{"1", ",", "j"}], "]"}], "]"}], "-", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", 
                   RowBox[{"1", ",", "k"}], "]"}], "]"}]}], "]"}], 
               "\[GreaterEqual]", " ", "1"}], "||", 
              RowBox[{"k", "===", "j"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"k", ",", "nf"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", "nf"}], "}"}]}], "]"}], "&"}], "/@", 
          "casos"}], ")"}]}], ")"}]}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4874298835*^9, 3.487429895234375*^9}, 3.4874299475*^9, {
   3.4874305375625*^9, 3.487430579640625*^9}, {3.487430959078125*^9, 
   3.487430959265625*^9}, {3.48743101575*^9, 3.487431016515625*^9}, {
   3.48743108615625*^9, 3.487431105609375*^9}, {3.487431142328125*^9, 
   3.48743114290625*^9}, {3.487431181234375*^9, 3.487431202984375*^9}, 
   3.487432127234375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Casos filtrados", "Subsection",
 CellChangeTimes->{{3.487433614421875*^9, 3.48743363578125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"casosFitrados", "=", 
   RowBox[{"Pick", "[", 
    RowBox[{"casos", ",", 
     RowBox[{"and", "[", 
      RowBox[{
      "ditFocoFocoQ", ",", "distCentroCentroQ", ",", "distFocoCentroQ"}], 
      "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4874284535625*^9, 3.487428509234375*^9}, {
  3.487432130921875*^9, 3.487432143203125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Pick", "::", "\<\"incomp\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Expressions \\\\\\\"\\\", \\\
\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\({\\(\\({\\(\\({\\(\\({12, 1}\\)\
\\), \\(\\({4, 9}\\)\\), \\(\\({6, 8}\\)\\)}\\)\\), \\(\\({\\(\\({3, 5, 4}\\)\
\\), \\(\\({6, 6, 6}\\)\\)}\\)\\), \\(\\({1, 6}\\)\\)}\\)\\), \
\\(\\({\\(\\({\\(\\({5, 2}\\)\\), \\(\\({1, 2}\\)\\), \\(\\({8, \
4}\\)\\)}\\)\\), \\(\\({\\(\\({7, 8, 2}\\)\\), \\(\\({5, 6, 6}\\)\\)}\\)\\), \
\\(\\({1, 2}\\)\\)}\\)\\), \\(\\({\\(\\({\\(\\({11, 2}\\)\\), \\(\\({4, 4}\\)\
\\), \\(\\({8, 4}\\)\\)}\\)\\), \\(\\({\\(\\({8, 5, 5}\\)\\), \\(\\({6, 5, 6}\
\\)\\)}\\)\\), \\(\\({4, 6}\\)\\)}\\)\\), \\(\\({\\(\\({\\(\\({7, 8}\\)\\), \
\\(\\({11, 5}\\)\\), \\(\\({11, 8}\\)\\)}\\)\\), \\(\\({\\(\\({6, 6, \
4}\\)\\), \\(\\({6, 9, 4}\\)\\)}\\)\\), \\(\\({4, 1}\\)\\)}\\)\\), \\(\\({\\(\
\\({\\(\\({6, 4}\\)\\), \\(\\({11, 1}\\)\\), \\(\\({9, 10}\\)\\)}\\)\\), \
\\(\\({\\(\\({6, 6, 3}\\)\\), \\(\\({7, 4, 3}\\)\\)}\\)\\), \\(\\({5, \
1}\\)\\)}\\)\\), \\(\\({\\(\\({\\(\\({6, 9}\\)\\), \\(\\({11, 5}\\)\\), \
\\(\\({8, 2}\\)\\)}\\)\\), \\(\\({\\(\\({7, 5, 4}\\)\\), \\(\\({9, 7, \
1}\\)\\)}\\)\\), \\(\\({3, 3}\\)\\)}\\)\\), \\(\\({\\(\\({\\(\\({3, \
10}\\)\\), \\(\\({9, 4}\\)\\), \\(\\({3, 2}\\)\\)}\\)\\), \\(\\({\\(\\({5, 6, \
2}\\)\\), \\(\\({5, 2, 4}\\)\\)}\\)\\), \\(\\({3, 1}\\)\\)}\\)\\), \\(\\({\\(\
\\({\\(\\({12, 5}\\)\\), \\(\\({12, 8}\\)\\), \\(\\({8, 8}\\)\\)}\\)\\), \
\\(\\({\\(\\({6, 4, 4}\\)\\), \\(\\({7, 6, 2}\\)\\)}\\)\\), \\(\\({1, \
5}\\)\\)}\\)\\), \\(\\({\\(\\({\\(\\({9, 5}\\)\\), \\(\\({11, 3}\\)\\), \
\\(\\({7, 11}\\)\\)}\\)\\), \\(\\({\\(\\({8, 4, 1}\\)\\), \\(\\({6, 6, \
3}\\)\\)}\\)\\), \\(\\({3, 3}\\)\\)}\\)\\), \\(\\({\\(\\({\\(\\({7, 6}\\)\\), \
\\(\\({8, 1}\\)\\), \\(\\({4, 1}\\)\\)}\\)\\), \\(\\({\\(\\({6, 6, 5}\\)\\), \
\\(\\({6, 7, 5}\\)\\)}\\)\\), \\(\\({5, 6}\\)\\)}\\)\\), \
\\(\\(\[LeftSkeleton] 31 \[RightSkeleton]\\)\\), \\(\\({\\(\\({\\(\\({2, \
8}\\)\\), \\(\\({7, 3}\\)\\), \\(\\({11, 5}\\)\\)}\\)\\), \\(\\({\\(\\({5, 4, \
6}\\)\\), \\(\\({6, 7, 2}\\)\\)}\\)\\), \\(\\({3, 6}\\)\\)}\\)\\), \\(\\({\\(\
\\({\\(\\({3, 10}\\)\\), \\(\\({8, 3}\\)\\), \\(\\({3, 10}\\)\\)}\\)\\), \
\\(\\({\\(\\({6, 5, 2}\\)\\), \\(\\({9, 5, 3}\\)\\)}\\)\\), \\(\\({6, \
3}\\)\\)}\\)\\), \\(\\({\\(\\({\\(\\({8, 4}\\)\\), \\(\\({3, 11}\\)\\), \
\\(\\({10, 10}\\)\\)}\\)\\), \\(\\({\\(\\({3, 8, 1}\\)\\), \\(\\({6, 9, 1}\\)\
\\)}\\)\\), \\(\\({2, 2}\\)\\)}\\)\\), \\(\\({\\(\\({\\(\\({5, 3}\\)\\), \
\\(\\({5, 1}\\)\\), \\(\\({11, 11}\\)\\)}\\)\\), \\(\\({\\(\\({10, 9, \
2}\\)\\), \\(\\({7, 5, 1}\\)\\)}\\)\\), \\(\\({2, 6}\\)\\)}\\)\\), \\(\\({\\(\
\\({\\(\\({11, 5}\\)\\), \\(\\({2, 10}\\)\\), \\(\\({7, 4}\\)\\)}\\)\\), \
\\(\\({\\(\\({9, 6, 3}\\)\\), \\(\\({6, 6, 3}\\)\\)}\\)\\), \\(\\({1, \
5}\\)\\)}\\)\\), \\(\\({\\(\\({\\(\\({7, 6}\\)\\), \\(\\({8, 11}\\)\\), \
\\(\\({12, 7}\\)\\)}\\)\\), \\(\\({\\(\\({7, 6, 6}\\)\\), \\(\\({5, 7, \
5}\\)\\)}\\)\\), \\(\\({5, 3}\\)\\)}\\)\\), \\(\\({\\(\\({\\(\\({12, \
1}\\)\\), \\(\\({7, 9}\\)\\), \\(\\({6, 9}\\)\\)}\\)\\), \\(\\({\\(\\({6, 5, \
5}\\)\\), \\(\\({4, 4, 4}\\)\\)}\\)\\), \\(\\({2, 3}\\)\\)}\\)\\), \\(\\({\\(\
\\({\\(\\({8, 4}\\)\\), \\(\\({2, 3}\\)\\), \\(\\({7, 7}\\)\\)}\\)\\), \
\\(\\({\\(\\({4, 4, 4}\\)\\), \\(\\({9, 6, 5}\\)\\)}\\)\\), \\(\\({3, \
3}\\)\\)}\\)\\), \\(\\({\\(\\({\\(\\({5, 2}\\)\\), \\(\\({6, 10}\\)\\), \
\\(\\({10, 5}\\)\\)}\\)\\), \\(\\({\\(\\({4, 4, 6}\\)\\), \\(\\({7, 7, \
1}\\)\\)}\\)\\), \\(\\({3, 6}\\)\\)}\\)\\), \\(\\(\[LeftSkeleton] 50 \
\[RightSkeleton]\\)\\)}\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" and \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\({False, \
\\(\\({\\(\\(\\(\\(Norm[\\(\\(\\(\\({1, 2}\\)\\) + \\(\\({\\(\\(-7\\)\\), \\(\
\\(-8\\)\\), \\(\\(-2\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({5, 2}\\)\\) + \\(\\({\\(\\(-7\\)\\), \
\\(\\(-8\\)\\), \\(\\(-2\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({8, 4}\\)\\) + \\(\\({\\(\\(-7\\)\\), \
\\(\\(-8\\)\\), \\(\\(-2\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({1, 2}\\)\\) + \\(\\({\\(\\(-5\\)\\), \
\\(\\(-6\\)\\), \\(\\(-6\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({5, 2}\\)\\) + \\(\\({\\(\\(-5\\)\\), \
\\(\\(-6\\)\\), \\(\\(-6\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({8, 4}\\)\\) + \\(\\({\\(\\(-5\\)\\), \
\\(\\(-6\\)\\), \\(\\(-6\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\)}\\)\\), False, \
False, False, False, \\(\\({\\(\\(\\(\\(Norm[\\(\\(\\(\\({3, 2}\\)\\) + \
\\(\\({\\(\\(-5\\)\\), \\(\\(-6\\)\\), \\(\\(-2\\)\\)}\\)\\)\\)\\)]\\)\\) > 3\
\\)\\), \\(\\(\\(\\(Norm[\\(\\(\\(\\({3, 10}\\)\\) + \\(\\({\\(\\(-5\\)\\), \
\\(\\(-6\\)\\), \\(\\(-2\\)\\)}\\)\\)\\)\\)]\\)\\) > 3\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({9, 4}\\)\\) + \\(\\({\\(\\(-5\\)\\), \
\\(\\(-6\\)\\), \\(\\(-2\\)\\)}\\)\\)\\)\\)]\\)\\) > 3\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({3, 2}\\)\\) + \\(\\({\\(\\(-5\\)\\), \
\\(\\(-2\\)\\), \\(\\(-4\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({3, 10}\\)\\) + \\(\\({\\(\\(-5\\)\\), \
\\(\\(-2\\)\\), \\(\\(-4\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({9, 4}\\)\\) + \\(\\({\\(\\(-5\\)\\), \
\\(\\(-2\\)\\), \\(\\(-4\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\)}\\)\\), False, \
False, False, False, False, False, False, False, False, False, \\(\\(\
\[LeftSkeleton] 18 \[RightSkeleton]\\)\\), \
\\(\\({\\(\\(\\(\\(Norm[\\(\\(\\(\\({2, 11}\\)\\) + \\(\\({\\(\\(-8\\)\\), \
\\(\\(-6\\)\\), \\(\\(-1\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({3, 5}\\)\\) + \\(\\({\\(\\(-8\\)\\), \
\\(\\(-6\\)\\), \\(\\(-1\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({3, 7}\\)\\) + \\(\\({\\(\\(-8\\)\\), \
\\(\\(-6\\)\\), \\(\\(-1\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({2, 11}\\)\\) + \\(\\({\\(\\(-2\\)\\), \
\\(\\(-4\\)\\), \\(\\(-6\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({3, 5}\\)\\) + \\(\\({\\(\\(-2\\)\\), \
\\(\\(-4\\)\\), \\(\\(-6\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({3, 7}\\)\\) + \\(\\({\\(\\(-2\\)\\), \
\\(\\(-4\\)\\), \\(\\(-6\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\)}\\)\\), False, \
\\(\\({\\(\\(\\(\\(Norm[\\(\\(\\(\\({4, 2}\\)\\) + \\(\\({\\(\\(-9\\)\\), \\(\
\\(-6\\)\\), \\(\\(-2\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({11, 8}\\)\\) + \\(\\({\\(\\(-9\\)\\), \
\\(\\(-6\\)\\), \\(\\(-2\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({11, 11}\\)\\) + \\(\\({\\(\\(-9\\)\\), \\(\\(-6\
\\)\\), \\(\\(-2\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\), \\(\\(\\(\\(Norm[\\(\\(\
\\(\\({4, 2}\\)\\) + \\(\\({\\(\\(-4\\)\\), \\(\\(-6\\)\\), \
\\(\\(-1\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({11, 8}\\)\\) + \\(\\({\\(\\(-4\\)\\), \
\\(\\(-6\\)\\), \\(\\(-1\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({11, 11}\\)\\) + \\(\\({\\(\\(-4\\)\\), \\(\\(-6\
\\)\\), \\(\\(-1\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\)}\\)\\), \\(\\({\\(\\(\\(\
\\(Norm[\\(\\(\\(\\({7, 11}\\)\\) + \\(\\({\\(\\(-11\\)\\), \\(\\(-4\\)\\), \
\\(\\(-3\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({8, 9}\\)\\) + \\(\\({\\(\\(-11\\)\\), \
\\(\\(-4\\)\\), \\(\\(-3\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({10, 5}\\)\\) + \\(\\({\\(\\(-11\\)\\), \\(\\(-4\
\\)\\), \\(\\(-3\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\), \\(\\(\\(\\(Norm[\\(\\(\
\\(\\({7, 11}\\)\\) + \\(\\({\\(\\(-7\\)\\), \\(\\(-4\\)\\), \
\\(\\(-5\\)\\)}\\)\\)\\)\\)]\\)\\) > 3\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({8, 9}\\)\\) + \\(\\({\\(\\(-7\\)\\), \
\\(\\(-4\\)\\), \\(\\(-5\\)\\)}\\)\\)\\)\\)]\\)\\) > 3\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({10, 5}\\)\\) + \\(\\({\\(\\(-7\\)\\), \
\\(\\(-4\\)\\), \\(\\(-5\\)\\)}\\)\\)\\)\\)]\\)\\) > 3\\)\\)}\\)\\), False, \
False, False, False, False, False, False, False, False, False, False, \\(\\(\
\[LeftSkeleton] 50 \[RightSkeleton]\\)\\)}\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\
\\*StyleBox[\\\"\\\\\\\" have incompatible shapes.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, ButtonData:>\\\"paclet:ref/Pick\
\\\", ButtonNote -> \\\"Pick::incomp\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.48744833959375*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Graficos para chequear", "Subsection",
 CellChangeTimes->{{3.487433641015625*^9, 3.487433656015625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"PointSize", "[", ".025", "]"}], ",", "Red", ",", 
         RowBox[{"Point", "/@", 
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Circle", "[", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "&"}], ",", 
         RowBox[{
          RowBox[{"Drop", "[", 
           RowBox[{"#", ",", "1"}], "]"}], "\[Transpose]"}]}], "]"}]}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "ancho"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "alto"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"GridLines", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "[", 
         RowBox[{"0", ",", "ancho"}], "]"}], ",", 
        RowBox[{"Range", "[", 
         RowBox[{"0", ",", "alto"}], "]"}]}], "}"}]}]}], "]"}], "&"}], "/@", 
  "casosFitrados"}]], "Input",
 CellChangeTimes->{{3.48743019790625*^9, 3.487430258578125*^9}, {
   3.487430291125*^9, 3.487430416109375*^9}, 3.4874305070625*^9, {
   3.48743139615625*^9, 3.487431510984375*^9}, {3.487431581421875*^9, 
   3.487431627953125*^9}, 3.487431847359375*^9, 3.487432068328125*^9, {
   3.487432149703125*^9, 3.487432155328125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Transpose", "::", "\<\"nmtx\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The first two levels of the \
one-dimensional list \\\\\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\
\\!\\({\\(\\({\\(\\(\\(\\(Norm[\\(\\(\\(\\({1, 2}\\)\\) + \
\\(\\({\\(\\(-7\\)\\), \\(\\(-8\\)\\), \\(\\(-2\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\
\\)\\), \\(\\(\\(\\(Norm[\\(\\(\\(\\({5, 2}\\)\\) + \\(\\({\\(\\(-7\\)\\), \
\\(\\(-8\\)\\), \\(\\(-2\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({8, 4}\\)\\) + \\(\\({\\(\\(-7\\)\\), \
\\(\\(-8\\)\\), \\(\\(-2\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({1, 2}\\)\\) + \\(\\({\\(\\(-5\\)\\), \
\\(\\(-6\\)\\), \\(\\(-6\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({5, 2}\\)\\) + \\(\\({\\(\\(-5\\)\\), \
\\(\\(-6\\)\\), \\(\\(-6\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({8, 4}\\)\\) + \\(\\({\\(\\(-5\\)\\), \
\\(\\(-6\\)\\), \\(\\(-6\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\)}\\)\\), False, \
False, False, False, \\(\\({\\(\\(\\(\\(Norm[\\(\\(\\(\\({3, 2}\\)\\) + \
\\(\\({\\(\\(-5\\)\\), \\(\\(-6\\)\\), \\(\\(-2\\)\\)}\\)\\)\\)\\)]\\)\\) > 3\
\\)\\), \\(\\(\\(\\(Norm[\\(\\(\\(\\({3, 10}\\)\\) + \\(\\({\\(\\(-5\\)\\), \
\\(\\(-6\\)\\), \\(\\(-2\\)\\)}\\)\\)\\)\\)]\\)\\) > 3\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({9, 4}\\)\\) + \\(\\({\\(\\(-5\\)\\), \
\\(\\(-6\\)\\), \\(\\(-2\\)\\)}\\)\\)\\)\\)]\\)\\) > 3\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({3, 2}\\)\\) + \\(\\({\\(\\(-5\\)\\), \
\\(\\(-2\\)\\), \\(\\(-4\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({3, 10}\\)\\) + \\(\\({\\(\\(-5\\)\\), \
\\(\\(-2\\)\\), \\(\\(-4\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({9, 4}\\)\\) + \\(\\({\\(\\(-5\\)\\), \
\\(\\(-2\\)\\), \\(\\(-4\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\)}\\)\\), False, \
False, False, False, False, False, False, False, False, False, False, \\(\\(\
\[LeftSkeleton] 18 \[RightSkeleton]\\)\\), False, \\(\\({\\(\\(\\(\\(Norm[\\(\
\\(\\(\\({4, 2}\\)\\) + \\(\\({\\(\\(-9\\)\\), \\(\\(-6\\)\\), \
\\(\\(-2\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({11, 8}\\)\\) + \\(\\({\\(\\(-9\\)\\), \
\\(\\(-6\\)\\), \\(\\(-2\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({11, 11}\\)\\) + \\(\\({\\(\\(-9\\)\\), \\(\\(-6\
\\)\\), \\(\\(-2\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\), \\(\\(\\(\\(Norm[\\(\\(\
\\(\\({4, 2}\\)\\) + \\(\\({\\(\\(-4\\)\\), \\(\\(-6\\)\\), \
\\(\\(-1\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({11, 8}\\)\\) + \\(\\({\\(\\(-4\\)\\), \
\\(\\(-6\\)\\), \\(\\(-1\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({11, 11}\\)\\) + \\(\\({\\(\\(-4\\)\\), \\(\\(-6\
\\)\\), \\(\\(-1\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\)}\\)\\), \\(\\({\\(\\(\\(\
\\(Norm[\\(\\(\\(\\({7, 11}\\)\\) + \\(\\({\\(\\(-11\\)\\), \\(\\(-4\\)\\), \
\\(\\(-3\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({8, 9}\\)\\) + \\(\\({\\(\\(-11\\)\\), \
\\(\\(-4\\)\\), \\(\\(-3\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({10, 5}\\)\\) + \\(\\({\\(\\(-11\\)\\), \\(\\(-4\
\\)\\), \\(\\(-3\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\), \\(\\(\\(\\(Norm[\\(\\(\
\\(\\({7, 11}\\)\\) + \\(\\({\\(\\(-7\\)\\), \\(\\(-4\\)\\), \
\\(\\(-5\\)\\)}\\)\\)\\)\\)]\\)\\) > 3\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({8, 9}\\)\\) + \\(\\({\\(\\(-7\\)\\), \
\\(\\(-4\\)\\), \\(\\(-5\\)\\)}\\)\\)\\)\\)]\\)\\) > 3\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({10, 5}\\)\\) + \\(\\({\\(\\(-7\\)\\), \
\\(\\(-4\\)\\), \\(\\(-5\\)\\)}\\)\\)\\)\\)]\\)\\) > 3\\)\\)}\\)\\), False, \
False, False, False, False, False, False, False, False, False, False, False, \
\\(\\(\[LeftSkeleton] 49 \[RightSkeleton]\\)\\)}\\), \\\"MT\\\"]\\)\[NoBreak]\
\\!\\(\\*StyleBox[\\\"\\\\\\\" cannot be transposed.\\\\\\\"\\\", \\\"MT\\\"]\
\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Transpose/nmtx\\\", \
ButtonNote -> \\\"Transpose::nmtx\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487448339671875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Pick", "::", "\<\"incomp\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Expressions \\\\\\\"\\\", \\\
\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\*GraphicsBox[List[List[\
PointSize[0.025`], RGBColor[1, 0, 0], List[PointBox[List[List[12, 1], List[4, \
9], List[6, 8]]], PointBox[List[List[3, 5, 4], List[6, 6, 6]]], \
PointBox[List[1, 6]]]], List[CircleBox[List[List[5, 2], List[1, 2], List[8, \
4]], List[List[11, 2], List[4, 4], List[8, 4]]], CircleBox[List[List[7, 8, \
2], List[5, 6, 6]], List[List[8, 5, 5], List[6, 5, 6]]], CircleBox[List[1, \
2], List[4, 6]]]], Rule[PlotRange, List[List[0, 13], List[0, 12]]], \
Rule[Axes, True], Rule[GridLines, List[List[0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, \
11, 12, 13], List[0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12]]]]\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" and \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\*GraphicsBox[List[List[\
PointSize[0.025`], RGBColor[1, 0, 0], False], \
Transpose[Circle[List[Greater[Norm[Plus[Skeleton[2]]], 1], \
Greater[Norm[Plus[Skeleton[2]]], 1], Greater[Norm[Plus[Skeleton[2]]], 1], \
Greater[Norm[Plus[Skeleton[2]]], 2], Greater[Norm[Plus[Skeleton[2]]], 2], \
Greater[Norm[Plus[Skeleton[2]]], 2]], False]]], Rule[PlotRange, List[List[0, \
13], List[0, 12]]], Rule[Axes, True], Rule[GridLines, List[List[0, 1, 2, 3, \
4, 5, 6, 7, 8, 9, 10, 11, 12, 13], List[0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, \
12]]]]\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" have \
incompatible shapes.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Pick\\\", ButtonNote -> \\\"Pick::incomp\\\"]\\)\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487448339703125*^9}],

Cell[BoxData[
 RowBox[{"Pick", "[", 
  RowBox[{
   GraphicsBox[{
     {RGBColor[1, 0, 0], PointSize[0.025], 
      PointBox[{{12, 1}, {4, 9}, {6, 8}}], PointBox[{{3, 5, 4}, {6, 6, 6}}], 
      PointBox[{1, 6}]}, {
      CircleBox[{{5, 2}, {1, 2}, {8, 4}}, {{11, 2}, {4, 4}, {8, 4}}], 
      CircleBox[{{7, 8, 2}, {5, 6, 6}}, {{8, 5, 5}, {6, 5, 6}}], 
      CircleBox[{1, 2}, {4., 6.}]}},
    Axes->True,
    GridLines->{{0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13}, {0, 1, 2, 3, 
      4, 5, 6, 7, 8, 9, 10, 11, 12}},
    PlotRange->{{0, 13}, {0, 12}}], ",", 
   GraphicsBox[{
     {RGBColor[1, 0, 0], PointSize[0.025], False}, Transpose[
      Circle[{
       Norm[{1, 2} + {-7, -8, -2}] > 1, Norm[{5, 2} + {-7, -8, -2}] > 1, 
        Norm[{8, 4} + {-7, -8, -2}] > 1, Norm[{1, 2} + {-5, -6, -6}] > 2, 
        Norm[{5, 2} + {-5, -6, -6}] > 2, Norm[{8, 4} + {-5, -6, -6}] > 2}, 
       False]]},
    Axes->True,
    GridLines->{{0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13}, {0, 1, 2, 3, 
      4, 5, 6, 7, 8, 9, 10, 11, 12}},
    PlotRange->{{0, 13}, {0, 12}}]}], "]"}]], "Output",
 CellChangeTimes->{3.48744833971875*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Para Uso de C", "Subsection",
 CellChangeTimes->{{3.487433712328125*^9, 3.487433725890625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"inputParaMartin", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Flatten", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"nf", ",", "nc", ",", "ancho", ",", "alto"}], "}"}], "}"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "}"}]}], "\[IndentingNewLine]", 
       "}"}], ",", "1"}], "]"}], "&"}], "/@", "casosFitrados"}]}]], "Input",
 CellChangeTimes->{{3.48743297365625*^9, 3.487433261765625*^9}, {
  3.487433302546875*^9, 3.48743330440625*^9}, {3.48743367940625*^9, 
  3.487433704453125*^9}, {3.487448198140625*^9, 3.48744821559375*^9}, {
  3.487448314203125*^9, 3.487448315625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Pick", "::", "\<\"incomp\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Expressions \\\\\\\"\\\", \\\
\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\({\\(\\({3, 2, 13, 12}\\)\\), \
\\(\\({\\(\\({12, 1}\\)\\), \\(\\({4, 9}\\)\\), \\(\\({6, 8}\\)\\)}\\)\\), \
\\(\\({\\(\\({3, 5, 4}\\)\\), \\(\\({6, 6, 6}\\)\\)}\\)\\), \\(\\({1, \
6}\\)\\), \\(\\({\\(\\({5, 2}\\)\\), \\(\\({1, 2}\\)\\), \\(\\({8, \
4}\\)\\)}\\)\\), \\(\\({\\(\\({7, 8, 2}\\)\\), \\(\\({5, 6, 6}\\)\\)}\\)\\), \
\\(\\({1, 2}\\)\\), \\(\\({\\(\\({\\(\\({11, 2}\\)\\), \\(\\({4, 4}\\)\\), \
\\(\\({8, 4}\\)\\)}\\)\\), \\(\\({\\(\\({8, 5, 5}\\)\\), \\(\\({6, 5, \
6}\\)\\)}\\)\\), \\(\\({4, 6}\\)\\)}\\)\\)}\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" and \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\({\\(\\({3, 2, 13, 12}\\)\\), \
False, \\(\\(\\(\\(Norm[\\(\\(\\(\\({1, 2}\\)\\) + \\(\\({\\(\\(-7\\)\\), \\(\
\\(-8\\)\\), \\(\\(-2\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({5, 2}\\)\\) + \\(\\({\\(\\(-7\\)\\), \
\\(\\(-8\\)\\), \\(\\(-2\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({8, 4}\\)\\) + \\(\\({\\(\\(-7\\)\\), \
\\(\\(-8\\)\\), \\(\\(-2\\)\\)}\\)\\)\\)\\)]\\)\\) > 1\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({1, 2}\\)\\) + \\(\\({\\(\\(-5\\)\\), \
\\(\\(-6\\)\\), \\(\\(-6\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({5, 2}\\)\\) + \\(\\({\\(\\(-5\\)\\), \
\\(\\(-6\\)\\), \\(\\(-6\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\), \
\\(\\(\\(\\(Norm[\\(\\(\\(\\({8, 4}\\)\\) + \\(\\({\\(\\(-5\\)\\), \
\\(\\(-6\\)\\), \\(\\(-6\\)\\)}\\)\\)\\)\\)]\\)\\) > 2\\)\\), False}\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" have incompatible \
shapes.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\
\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Pick\\\", ButtonNote -> \\\"Pick::incomp\\\"]\\)\"\
\>"}]], "Message", "MSG",
 CellChangeTimes->{3.48744833975*^9}],

Cell[BoxData[
 RowBox[{"Pick", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"12", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "9"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "8"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "5", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "6", ",", "6"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "6"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", "4"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"7", ",", "8", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6", ",", "6"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"11", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"8", ",", "4"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"8", ",", "5", ",", "5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"6", ",", "5", ",", "6"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "6"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], ",", "False", ",", 
     RowBox[{
      RowBox[{"Norm", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}], "+", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "7"}], ",", 
          RowBox[{"-", "8"}], ",", 
          RowBox[{"-", "2"}]}], "}"}]}], "]"}], ">", "1"}], ",", 
     RowBox[{
      RowBox[{"Norm", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"5", ",", "2"}], "}"}], "+", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "7"}], ",", 
          RowBox[{"-", "8"}], ",", 
          RowBox[{"-", "2"}]}], "}"}]}], "]"}], ">", "1"}], ",", 
     RowBox[{
      RowBox[{"Norm", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"8", ",", "4"}], "}"}], "+", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "7"}], ",", 
          RowBox[{"-", "8"}], ",", 
          RowBox[{"-", "2"}]}], "}"}]}], "]"}], ">", "1"}], ",", 
     RowBox[{
      RowBox[{"Norm", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}], "+", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "5"}], ",", 
          RowBox[{"-", "6"}], ",", 
          RowBox[{"-", "6"}]}], "}"}]}], "]"}], ">", "2"}], ",", 
     RowBox[{
      RowBox[{"Norm", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"5", ",", "2"}], "}"}], "+", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "5"}], ",", 
          RowBox[{"-", "6"}], ",", 
          RowBox[{"-", "6"}]}], "}"}]}], "]"}], ">", "2"}], ",", 
     RowBox[{
      RowBox[{"Norm", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"8", ",", "4"}], "}"}], "+", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "5"}], ",", 
          RowBox[{"-", "6"}], ",", 
          RowBox[{"-", "6"}]}], "}"}]}], "]"}], ">", "2"}], ",", "False"}], 
    "}"}]}], "]"}]], "Output",
 CellChangeTimes->{{3.487448332140625*^9, 3.48744833978125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"11", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"12", ",", "7"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"12", ",", "9"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"9", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "2"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"9", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "9"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"10", ",", "8"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "7"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "2"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "1"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"9", ",", "7"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"11", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"11", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "7"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"7", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "2"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"12", ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"11", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"9", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"10", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "8"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"10", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "11"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "8"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "8"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "7"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "7"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "3"}], "}"}]}], "}"}]}], "}"}], "//", "MatrixForm"}]],\
 "Input",
 CellChangeTimes->{{3.487448319609375*^9, 3.487448321734375*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"11", ",", "3"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"12", ",", "7"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"12", ",", "9"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"5", ",", "9"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"9", ",", "5"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"2", ",", "2"}], "}"}]},
     {
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"9", ",", "10"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "9"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"10", ",", "8"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"6", ",", "3"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"8", ",", "7"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"2", ",", "2"}], "}"}]},
     {
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"3", ",", "1"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"8", ",", "4"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"4", ",", "8"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"8", ",", "2"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"2", ",", "1"}], "}"}]},
     {
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"9", ",", "7"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"11", ",", "2"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"11", ",", "5"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"5", ",", "7"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"7", ",", "3"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"2", ",", "2"}], "}"}]},
     {
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"12", ",", "6"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"11", ",", "10"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"8", ",", "10"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"9", ",", "3"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"10", ",", "5"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]},
     {
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"6", ",", "8"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"10", ",", "10"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "11"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"6", ",", "5"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"3", ",", "4"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]},
     {
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "8"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"8", ",", "8"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"5", ",", "4"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"5", ",", "10"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"3", ",", "3"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]},
     {
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"6", ",", "4"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"2", ",", "7"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "4"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"4", ",", "5"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"8", ",", "7"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "3"}], "}"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.487448322109375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"3", ",", "2", ",", "13", ",", "12", ",", 
      RowBox[{"{", 
       RowBox[{"11", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"12", ",", "7"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"12", ",", "9"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"9", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "2"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "2", ",", "13", ",", "12", ",", 
      RowBox[{"{", 
       RowBox[{"9", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "9"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"10", ",", "8"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "7"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "2"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "2", ",", "13", ",", "12", ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "1"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "2", ",", "13", ",", "12", ",", 
      RowBox[{"{", 
       RowBox[{"9", ",", "7"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"11", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"11", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "7"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"7", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "2"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "2", ",", "13", ",", "12", ",", 
      RowBox[{"{", 
       RowBox[{"12", ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"11", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"9", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"10", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "2", ",", "13", ",", "12", ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "8"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"10", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "11"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "2", ",", "13", ",", "12", ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "8"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "8"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "2", ",", "13", ",", "12", ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "7"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "7"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "3"}], "}"}]}], "}"}]}], "}"}], "//", "MatrixForm"}]],\
 "Input",
 CellChangeTimes->{{3.487448308*^9, 3.4874483103125*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"3", "2", "13", "12", 
      RowBox[{"{", 
       RowBox[{"11", ",", "3"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"12", ",", "7"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"12", ",", "9"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"5", ",", "9"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"9", ",", "5"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"2", ",", "2"}], "}"}]},
     {"3", "2", "13", "12", 
      RowBox[{"{", 
       RowBox[{"9", ",", "10"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "9"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"10", ",", "8"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"6", ",", "3"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"8", ",", "7"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"2", ",", "2"}], "}"}]},
     {"3", "2", "13", "12", 
      RowBox[{"{", 
       RowBox[{"3", ",", "1"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"8", ",", "4"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"4", ",", "8"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"8", ",", "2"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"2", ",", "1"}], "}"}]},
     {"3", "2", "13", "12", 
      RowBox[{"{", 
       RowBox[{"9", ",", "7"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"11", ",", "2"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"11", ",", "5"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"5", ",", "7"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"7", ",", "3"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"2", ",", "2"}], "}"}]},
     {"3", "2", "13", "12", 
      RowBox[{"{", 
       RowBox[{"12", ",", "6"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"11", ",", "10"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"8", ",", "10"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"9", ",", "3"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"10", ",", "5"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]},
     {"3", "2", "13", "12", 
      RowBox[{"{", 
       RowBox[{"6", ",", "8"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"10", ",", "10"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "11"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"6", ",", "5"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"3", ",", "4"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]},
     {"3", "2", "13", "12", 
      RowBox[{"{", 
       RowBox[{"1", ",", "8"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"8", ",", "8"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"5", ",", "4"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"5", ",", "10"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"3", ",", "3"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]},
     {"3", "2", "13", "12", 
      RowBox[{"{", 
       RowBox[{"6", ",", "4"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"2", ",", "7"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "4"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"4", ",", "5"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"8", ",", "7"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "3"}], "}"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.487448310671875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"11", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"12", ",", "7"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"12", ",", "9"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"9", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "2"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"9", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "9"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"10", ",", "8"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "7"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "2"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "1"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"9", ",", "7"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"11", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"11", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "7"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"7", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "2"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"12", ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"11", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"9", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"10", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "8"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"10", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "11"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "8"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "8"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "7"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "7"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "3"}], "}"}]}], "}"}]}], "}"}], "//", "MatrixForm"}]],\
 "Input",
 CellChangeTimes->{{3.487448033359375*^9, 3.48744811140625*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"11", ",", "3"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"12", ",", "7"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"12", ",", "9"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"5", ",", "9"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"9", ",", "5"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"2", ",", "2"}], "}"}]},
     {
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"9", ",", "10"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "9"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"10", ",", "8"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"6", ",", "3"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"8", ",", "7"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"2", ",", "2"}], "}"}]},
     {
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"3", ",", "1"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"8", ",", "4"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"4", ",", "8"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"8", ",", "2"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"2", ",", "1"}], "}"}]},
     {
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"9", ",", "7"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"11", ",", "2"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"11", ",", "5"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"5", ",", "7"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"7", ",", "3"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"2", ",", "2"}], "}"}]},
     {
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"12", ",", "6"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"11", ",", "10"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"8", ",", "10"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"9", ",", "3"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"10", ",", "5"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]},
     {
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"6", ",", "8"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"10", ",", "10"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "11"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"6", ",", "5"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"3", ",", "4"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]},
     {
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "8"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"8", ",", "8"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"5", ",", "4"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"5", ",", "10"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"3", ",", "3"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]},
     {
      RowBox[{"{", 
       RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"6", ",", "4"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"2", ",", "7"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "4"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"4", ",", "5"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"8", ",", "7"}], "}"}], 
      RowBox[{"{", 
       RowBox[{"1", ",", "3"}], "}"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.487448046015625*^9, 3.487448112015625*^9}, 
   3.487448217984375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"3", ",", "2", ",", "13", ",", "12"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"6", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"9", ",", "6"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", "6"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"5", ",", "7"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"4", ",", "11"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", "1"}], "}"}]}], "}"}], "//", "TableForm"}]], "Input",
 CellChangeTimes->{{3.48743328721875*^9, 3.487433319390625*^9}}],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {"3", "2", "13", "12"},
    {"6", "3", "\<\"\"\>", "\<\"\"\>"},
    {"9", "6", "\<\"\"\>", "\<\"\"\>"},
    {"2", "6", "\<\"\"\>", "\<\"\"\>"},
    {"5", "7", "\<\"\"\>", "\<\"\"\>"},
    {"4", "11", "\<\"\"\>", "\<\"\"\>"},
    {"2", "1", "\<\"\"\>", "\<\"\"\>"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{3, 2, 13, 12}, {6, 3}, {9, 6}, {2, 6}, {5, 7}, {4, 11}, {2, 
    1}}]]], "Output",
 CellChangeTimes->{{3.487433291484375*^9, 3.48743331965625*^9}, 
   3.48744793625*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1912, 1068},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 19, 0, 71, "Section"],
Cell[CellGroupData[{
Cell[611, 26, 98, 1, 36, "Subsection"],
Cell[712, 29, 719, 19, 92, "Input"],
Cell[CellGroupData[{
Cell[1456, 52, 659, 18, 112, "Input"],
Cell[2118, 72, 92, 2, 30, "Output"],
Cell[2213, 76, 92, 2, 30, "Output"],
Cell[2308, 80, 69, 1, 30, "Output"],
Cell[2380, 83, 69, 1, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[2498, 90, 89, 1, 36, "Subsection"],
Cell[2590, 93, 955, 18, 92, "Input"],
Cell[3548, 113, 2130, 62, 168, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5715, 180, 94, 1, 36, "Subsection"],
Cell[5812, 183, 1419, 35, 152, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7268, 223, 148, 2, 36, "Subsection"],
Cell[7419, 227, 504, 10, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7960, 242, 119, 1, 36, "Subsection"],
Cell[CellGroupData[{
Cell[8104, 247, 1310, 34, 31, "Input"],
Cell[9417, 283, 676, 12, 21, "Message"],
Cell[10096, 297, 677, 12, 21, "Message"],
Cell[10776, 311, 676, 12, 21, "Message"],
Cell[11455, 325, 629, 11, 21, "Message"]
}, Open  ]],
Cell[12099, 339, 1516, 40, 31, "Input"],
Cell[13618, 381, 1403, 35, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15058, 421, 102, 1, 36, "Subsection"],
Cell[CellGroupData[{
Cell[15185, 426, 378, 10, 31, "Input"],
Cell[15566, 438, 8473, 122, 158, "Message"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24088, 566, 110, 1, 36, "Subsection"],
Cell[CellGroupData[{
Cell[24223, 571, 1776, 47, 152, "Input"],
Cell[26002, 620, 4184, 62, 70, "Message"],
Cell[30189, 684, 1840, 28, 70, "Message"],
Cell[32032, 714, 1126, 25, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[33207, 745, 101, 1, 28, "Subsection"],
Cell[CellGroupData[{
Cell[33333, 750, 1004, 23, 152, "Input"],
Cell[34340, 775, 2050, 32, 39, "Message"],
Cell[36393, 809, 3826, 122, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40256, 936, 4314, 133, 72, InheritFromParent],
Cell[44573, 1071, 4201, 136, 146, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48811, 1212, 3946, 117, 72, InheritFromParent],
Cell[52760, 1331, 3721, 120, 146, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56518, 1456, 4313, 133, 72, InheritFromParent],
Cell[60834, 1591, 4251, 137, 146, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65122, 1733, 600, 18, 31, "Input"],
Cell[65725, 1753, 903, 23, 131, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
